home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / internet / vbsock11 / chat / server / send.bas < prev    next >
BASIC Source File  |  1995-02-26  |  40KB  |  1,180 lines
  1. ''''''''''''''''''''''''''''
  2. ' Visual Basic global constant file. This file can be loaded
  3. ' into a code module.
  4. '
  5. ' Some constants are commented out because they have
  6. ' duplicates (e.g., NONE appears several places).
  7. '
  8. ' If you are updating a Visual Basic application written with
  9. ' an older version, you should replace your global constants
  10. ' with the constants in this file.
  11. '
  12. ''''''''''''''''''''''''''''
  13.  
  14. ' General
  15.  
  16. ' Clipboard formats
  17. Global Const CF_LINK = &HBF00
  18. Global Const CF_TEXT = 1
  19. Global Const CF_BITMAP = 2
  20. Global Const CF_METAFILE = 3
  21. Global Const CF_DIB = 8
  22. Global Const CF_PALETTE = 9
  23.  
  24. ' DragOver
  25. Global Const ENTER = 0
  26. Global Const LEAVE = 1
  27. Global Const OVER = 2
  28.  
  29. ' Drag (controls)
  30. Global Const CANCEL = 0
  31. Global Const BEGIN_DRAG = 1
  32. Global Const END_DRAG = 2
  33.  
  34. ' Show parameters
  35. Global Const MODAL = 1
  36. Global Const MODELESS = 0
  37.  
  38. ' Arrange Method
  39. ' for MDI Forms
  40. Global Const CASCADE = 0
  41. Global Const TILE_HORIZONTAL = 1
  42. Global Const TILE_VERTICAL = 2
  43. Global Const ARRANGE_ICONS = 3
  44.  
  45. 'ZOrder Method
  46. Global Const BRINGTOFRONT = 0
  47. Global Const SENDTOBACK = 1
  48.  
  49. ' Key Codes
  50. Global Const KEY_LBUTTON = &H1
  51. Global Const KEY_RBUTTON = &H2
  52. Global Const KEY_CANCEL = &H3
  53. Global Const KEY_MBUTTON = &H4    ' NOT contiguous with L & RBUTTON
  54. Global Const KEY_BACK = &H8
  55. Global Const KEY_TAB = &H9
  56. Global Const KEY_CLEAR = &HC
  57. Global Const KEY_RETURN = &HD
  58. Global Const KEY_SHIFT = &H10
  59. Global Const KEY_CONTROL = &H11
  60. Global Const KEY_MENU = &H12
  61. Global Const KEY_PAUSE = &H13
  62. Global Const KEY_CAPITAL = &H14
  63. Global Const KEY_ESCAPE = &H1B
  64. Global Const KEY_SPACE = &H20
  65. Global Const KEY_PRIOR = &H21
  66. Global Const KEY_NEXT = &H22
  67. Global Const KEY_END = &H23
  68. Global Const KEY_HOME = &H24
  69. Global Const KEY_LEFT = &H25
  70. Global Const KEY_UP = &H26
  71. Global Const KEY_RIGHT = &H27
  72. Global Const KEY_DOWN = &H28
  73. Global Const KEY_SELECT = &H29
  74. Global Const KEY_PRINT = &H2A
  75. Global Const KEY_EXECUTE = &H2B
  76. Global Const KEY_SNAPSHOT = &H2C
  77. Global Const KEY_INSERT = &H2D
  78. Global Const KEY_DELETE = &H2E
  79. Global Const KEY_HELP = &H2F
  80.  
  81. ' KEY_A thru KEY_Z are the same as their ASCII equivalents: 'A' thru 'Z'
  82. ' KEY_0 thru KEY_9 are the same as their ASCII equivalents: '0' thru '9'
  83.  
  84. Global Const KEY_NUMPAD0 = &H60
  85. Global Const KEY_NUMPAD1 = &H61
  86. Global Const KEY_NUMPAD2 = &H62
  87. Global Const KEY_NUMPAD3 = &H63
  88. Global Const KEY_NUMPAD4 = &H64
  89. Global Const KEY_NUMPAD5 = &H65
  90. Global Const KEY_NUMPAD6 = &H66
  91. Global Const KEY_NUMPAD7 = &H67
  92. Global Const KEY_NUMPAD8 = &H68
  93. Global Const KEY_NUMPAD9 = &H69
  94. Global Const KEY_MULTIPLY = &H6A
  95. Global Const KEY_ADD = &H6B
  96. Global Const KEY_SEPARATOR = &H6C
  97. Global Const KEY_SUBTRACT = &H6D
  98. Global Const KEY_DECIMAL = &H6E
  99. Global Const KEY_DIVIDE = &H6F
  100. Global Const KEY_F1 = &H70
  101. Global Const KEY_F2 = &H71
  102. Global Const KEY_F3 = &H72
  103. Global Const KEY_F4 = &H73
  104. Global Const KEY_F5 = &H74
  105. Global Const KEY_F6 = &H75
  106. Global Const KEY_F7 = &H76
  107. Global Const KEY_F8 = &H77
  108. Global Const KEY_F9 = &H78
  109. Global Const KEY_F10 = &H79
  110. Global Const KEY_F11 = &H7A
  111. Global Const KEY_F12 = &H7B
  112. Global Const KEY_F13 = &H7C
  113. Global Const KEY_F14 = &H7D
  114. Global Const KEY_F15 = &H7E
  115. Global Const KEY_F16 = &H7F
  116.  
  117. Global Const KEY_NUMLOCK = &H90
  118.  
  119. ' Variant VarType tags
  120.  
  121. Global Const V_EMPTY = 0
  122. Global Const V_NULL = 1
  123. Global Const V_INTEGER = 2
  124. Global Const V_LONG = 3
  125. Global Const V_SINGLE = 4
  126. Global Const V_DOUBLE = 5
  127. Global Const V_CURRENCY = 6
  128. Global Const V_DATE = 7
  129. Global Const V_STRING = 8
  130.  
  131.  
  132. ' Event Parameters
  133.  
  134. ' ErrNum (LinkError)
  135. Global Const WRONG_FORMAT = 1
  136. Global Const DDE_SOURCE_CLOSED = 6
  137. Global Const TOO_MANY_LINKS = 7
  138. Global Const DATA_TRANSFER_FAILED = 8
  139.  
  140. ' QueryUnload
  141. Global Const FORM_CONTROLMENU = 0
  142. Global Const FORM_CODE = 1
  143. Global Const APP_WINDOWS = 2
  144. Global Const APP_TASKMANAGER = 3
  145. Global Const FORM_MDIFORM = 4
  146.  
  147. ' Properties
  148.  
  149. ' Colors
  150. Global Const BLACK = &H0&
  151. Global Const RED = &HFF&
  152. Global Const GREEN = &HFF00&
  153. Global Const YELLOW = &HFFFF&
  154. Global Const BLUE = &HFF0000
  155. Global Const MAGENTA = &HFF00FF
  156. Global Const CYAN = &HFFFF00
  157. Global Const WHITE = &HFFFFFF
  158.  
  159. ' System Colors
  160. Global Const SCROLL_BARS = &H80000000           ' Scroll-bars gray area.
  161. Global Const DESKTOP = &H80000001               ' Desktop.
  162. Global Const ACTIVE_TITLE_BAR = &H80000002      ' Active window caption.
  163. Global Const INACTIVE_TITLE_BAR = &H80000003    ' Inactive window caption.
  164. Global Const MENU_BAR = &H80000004              ' Menu background.
  165. Global Const WINDOW_BACKGROUND = &H80000005     ' Window background.
  166. Global Const WINDOW_FRAME = &H80000006          ' Window frame.
  167. Global Const MENU_TEXT = &H80000007             ' Text in menus.
  168. Global Const WINDOW_TEXT = &H80000008           ' Text in windows.
  169. Global Const TITLE_BAR_TEXT = &H80000009        ' Text in caption, size box, scroll-bar arrow box..
  170. Global Const ACTIVE_BORDER = &H8000000A         ' Active window border.
  171. Global Const INACTIVE_BORDER = &H8000000B       ' Inactive window border.
  172. Global Const APPLICATION_WORKSPACE = &H8000000C ' Background color of multiple document interface (MDI) applications.
  173. Global Const HIGHLIGHT = &H8000000D             ' Items selected item in a control.
  174. Global Const HIGHLIGHT_TEXT = &H8000000E        ' Text of item selected in a control.
  175. Global Const BUTTON_FACE = &H8000000F           ' Face shading on command buttons.
  176. Global Const BUTTON_SHADOW = &H80000010         ' Edge shading on command buttons.
  177. Global Const GRAY_TEXT = &H80000011             ' Grayed (disabled) text.  This color is set to 0 if the current display driver does not support a solid gray color.
  178. Global Const BUTTON_TEXT = &H80000012           ' Text on push buttons.
  179.  
  180. ' Enumerated Types
  181.  
  182. ' Align (picture box)
  183. Global Const NONE = 0
  184. Global Const ALIGN_TOP = 1
  185. Global Const ALIGN_BOTTOM = 2
  186.  
  187. ' Alignment
  188. Global Const LEFT_JUSTIFY = 0  ' 0 - Left Justify
  189. Global Const RIGHT_JUSTIFY = 1 ' 1 - Right Justify
  190. Global Const CENTER = 2        ' 2 - Center
  191.  
  192. ' BorderStyle (form)
  193. 'Global Const NONE = 0          ' 0 - None
  194. Global Const FIXED_SINGLE = 1   ' 1 - Fixed Single
  195. Global Const SIZABLE = 2        ' 2 - Sizable (Forms only)
  196. Global Const FIXED_DOUBLE = 3   ' 3 - Fixed Double (Forms only)
  197.  
  198. ' BorderStyle (Shape and Line)
  199. 'Global Const TRANSPARENT = 0    '0 - Transparent
  200. 'Global Const SOLID = 1          '1 - Solid
  201. 'Global Const DASH = 2         ' 2 - Dash
  202. 'Global Const DOT = 3          ' 3 - Dot
  203. 'Global Const DASH_DOT = 4     ' 4 - Dash-Dot
  204. 'Global Const DASH_DOT_DOT = 5 ' 5 - Dash-Dot-Dot
  205. 'Global Const INSIDE_SOLID = 6 ' 6 - Inside Solid
  206.  
  207. ' MousePointer
  208. Global Const DEFAULT = 0        ' 0 - Default
  209. Global Const ARROW = 1          ' 1 - Arrow
  210. Global Const CROSSHAIR = 2      ' 2 - Cross
  211. Global Const IBEAM = 3          ' 3 - I-Beam
  212. Global Const ICON_POINTER = 4   ' 4 - Icon
  213. Global Const SIZE_POINTER = 5   ' 5 - Size
  214. Global Const SIZE_NE_SW = 6     ' 6 - Size NE SW
  215. Global Const SIZE_N_S = 7       ' 7 - Size N S
  216. Global Const SIZE_NW_SE = 8     ' 8 - Size NW SE
  217. Global Const SIZE_W_E = 9       ' 9 - Size W E
  218. Global Const UP_ARROW = 10      ' 10 - Up Arrow
  219. Global Const HOURGLASS = 11     ' 11 - Hourglass
  220. Global Const NO_DROP = 12       ' 12 - No drop
  221.  
  222. ' DragMode
  223. Global Const MANUAL = 0    ' 0 - Manual
  224. Global Const AUTOMATIC = 1 ' 1 - Automatic
  225.  
  226. ' DrawMode
  227. Global Const BLACKNESS = 1      ' 1 - Blackness
  228. Global Const NOT_MERGE_PEN = 2  ' 2 - Not Merge Pen
  229. Global Const MASK_NOT_PEN = 3   ' 3 - Mask Not Pen
  230. Global Const NOT_COPY_PEN = 4   ' 4 - Not Copy Pen
  231. Global Const MASK_PEN_NOT = 5   ' 5 - Mask Pen Not
  232. Global Const INVERT = 6         ' 6 - Invert
  233. Global Const XOR_PEN = 7        ' 7 - Xor Pen
  234. Global Const NOT_MASK_PEN = 8   ' 8 - Not Mask Pen
  235. Global Const MASK_PEN = 9       ' 9 - Mask Pen
  236. Global Const NOT_XOR_PEN = 10   ' 10 - Not Xor Pen
  237. Global Const NOP = 11           ' 11 - Nop
  238. Global Const MERGE_NOT_PEN = 12 ' 12 - Merge Not Pen
  239. Global Const COPY_PEN = 13      ' 13 - Copy Pen
  240. Global Const MERGE_PEN_NOT = 14 ' 14 - Merge Pen Not
  241. Global Const MERGE_PEN = 15     ' 15 - Merge Pen
  242. Global Const WHITENESS = 16     ' 16 - Whiteness
  243.  
  244. ' DrawStyle
  245. Global Const SOLID = 0        ' 0 - Solid
  246. Global Const DASH = 1         ' 1 - Dash
  247. Global Const DOT = 2          ' 2 - Dot
  248. Global Const DASH_DOT = 3     ' 3 - Dash-Dot
  249. Global Const DASH_DOT_DOT = 4 ' 4 - Dash-Dot-Dot
  250. Global Const INVISIBLE = 5    ' 5 - Invisible
  251. Global Const INSIDE_SOLID = 6 ' 6 - Inside Solid
  252.  
  253. ' FillStyle
  254. ' Global Const SOLID = 0           ' 0 - Solid
  255. Global Const TRANSPARENT = 1       ' 1 - Transparent
  256. Global Const HORIZONTAL_LINE = 2   ' 2 - Horizontal Line
  257. Global Const VERTICAL_LINE = 3     ' 3 - Vertical Line
  258. Global Const UPWARD_DIAGONAL = 4   ' 4 - Upward Diagonal
  259. Global Const DOWNWARD_DIAGONAL = 5 ' 5 - Downward Diagonal
  260. Global Const CROSS = 6             ' 6 - Cross
  261. Global Const DIAGONAL_CROSS = 7    ' 7 - Diagonal Cross
  262.  
  263. ' LinkMode (forms and controls)
  264. ' Global Const NONE = 0         ' 0 - None
  265. Global Const LINK_SOURCE = 1    ' 1 - Source (forms only)
  266. Global Const LINK_AUTOMATIC = 1 ' 1 - Automatic (controls only)
  267. Global Const LINK_MANUAL = 2    ' 2 - Manual (controls only)
  268. Global Const LINK_NOTIFY = 3    ' 3 - Notify (controls only)
  269.  
  270. ' LinkMode (kept for VB1.0 compatibility, use new constants instead)
  271. Global Const HOT = 1    ' 1 - Hot (controls only)
  272. Global Const SERVER = 1 ' 1 - Server (forms only)
  273. Global Const COLD = 2   ' 2 - Cold (controls only)
  274.  
  275.  
  276. ' ScaleMode
  277. Global Const USER = 0        ' 0 - User
  278. Global Const TWIPS = 1       ' 1 - Twip
  279. Global Const POINTS = 2      ' 2 - Point
  280. Global Const PIXELS = 3      ' 3 - Pixel
  281. Global Const CHARACTERS = 4  ' 4 - Character
  282. Global Const INCHES = 5      ' 5 - Inch
  283. Global Const MILLIMETERS = 6 ' 6 - Millimeter
  284. Global Const CENTIMETERS = 7 ' 7 - Centimeter
  285.  
  286. ' ScrollBar
  287. ' Global Const NONE     = 0 ' 0 - None
  288. Global Const HORIZONTAL = 1 ' 1 - Horizontal
  289. Global Const VERTICAL = 2   ' 2 - Vertical
  290. Global Const BOTH = 3       ' 3 - Both
  291.  
  292. ' Shape
  293. Global Const SHAPE_RECTANGLE = 0
  294. Global Const SHAPE_SQUARE = 1
  295. Global Const SHAPE_OVAL = 2
  296. Global Const SHAPE_CIRCLE = 3
  297. Global Const SHAPE_ROUNDED_RECTANGLE = 4
  298. Global Const SHAPE_ROUNDED_SQUARE = 5
  299.  
  300. ' WindowState
  301. Global Const NORMAL = 0    ' 0 - Normal
  302. Global Const MINIMIZED = 1 ' 1 - Minimized
  303. Global Const MAXIMIZED = 2 ' 2 - Maximized
  304.  
  305. ' Check Value
  306. Global Const UNCHECKED = 0 ' 0 - Unchecked
  307. Global Const CHECKED = 1   ' 1 - Checked
  308. Global Const GRAYED = 2    ' 2 - Grayed
  309.  
  310. ' Shift parameter masks
  311. Global Const SHIFT_MASK = 1
  312. Global Const CTRL_MASK = 2
  313. Global Const ALT_MASK = 4
  314.  
  315. ' Button parameter masks
  316. Global Const LEFT_BUTTON = 1
  317. Global Const RIGHT_BUTTON = 2
  318. Global Const MIDDLE_BUTTON = 4
  319.  
  320. ' Function Parameters
  321. ' MsgBox parameters
  322. Global Const MB_OK = 0                 ' OK button only
  323. Global Const MB_OKCANCEL = 1           ' OK and Cancel buttons
  324. Global Const MB_ABORTRETRYIGNORE = 2   ' Abort, Retry, and Ignore buttons
  325. Global Const MB_YESNOCANCEL = 3        ' Yes, No, and Cancel buttons
  326. Global Const MB_YESNO = 4              ' Yes and No buttons
  327. Global Const MB_RETRYCANCEL = 5        ' Retry and Cancel buttons
  328.  
  329. Global Const MB_ICONSTOP = 16          ' Critical message
  330. Global Const MB_ICONQUESTION = 32      ' Warning query
  331. Global Const MB_ICONEXCLAMATION = 48   ' Warning message
  332. Global Const MB_ICONINFORMATION = 64   ' Information message
  333.  
  334. Global Const MB_APPLMODAL = 0          ' Application Modal Message Box
  335. Global Const MB_DEFBUTTON1 = 0         ' First button is default
  336. Global Const MB_DEFBUTTON2 = 256       ' Second button is default
  337. Global Const MB_DEFBUTTON3 = 512       ' Third button is default
  338. Global Const MB_SYSTEMMODAL = 4096      'System Modal
  339.  
  340. ' MsgBox return values
  341. Global Const IDOK = 1                  ' OK button pressed
  342. Global Const IDCANCEL = 2              ' Cancel button pressed
  343. Global Const IDABORT = 3               ' Abort button pressed
  344. Global Const IDRETRY = 4               ' Retry button pressed
  345. Global Const IDIGNORE = 5              ' Ignore button pressed
  346. Global Const IDYES = 6                 ' Yes button pressed
  347. Global Const IDNO = 7                  ' No button pressed
  348.  
  349. ' SetAttr, Dir, GetAttr functions
  350. Global Const ATTR_NORMAL = 0
  351. Global Const ATTR_READONLY = 1
  352. Global Const ATTR_HIDDEN = 2
  353. Global Const ATTR_SYSTEM = 4
  354. Global Const ATTR_VOLUME = 8
  355. Global Const ATTR_DIRECTORY = 16
  356. Global Const ATTR_ARCHIVE = 32
  357.  
  358. 'Grid
  359. 'ColAlignment,FixedAlignment Properties
  360. Global Const GRID_ALIGNLEFT = 0
  361. Global Const GRID_ALIGNRIGHT = 1
  362. Global Const GRID_ALIGNCENTER = 2
  363.  
  364. 'Fillstyle Property
  365. Global Const GRID_SINGLE = 0
  366. Global Const GRID_REPEAT = 1
  367.  
  368.  
  369. 'Data control
  370. 'Error event Response arguments
  371. Global Const DATA_ERRCONTINUE = 0
  372. Global Const DATA_ERRDISPLAY = 1
  373.  
  374. 'Editmode property values
  375. Global Const DATA_EDITNONE = 0
  376. Global Const DATA_EDITMODE = 1
  377. Global Const DATA_EDITADD = 2
  378.  
  379. ' Options property values
  380. Global Const DATA_DENYWRITE = &H1
  381. Global Const DATA_DENYREAD = &H2
  382. Global Const DATA_READONLY = &H4
  383. Global Const DATA_APPENDONLY = &H8
  384. Global Const DATA_INCONSISTENT = &H10
  385. Global Const DATA_CONSISTENT = &H20
  386. Global Const DATA_SQLPASSTHROUGH = &H40
  387.  
  388. 'Validate event Action arguments
  389. Global Const DATA_ACTIONCANCEL = 0
  390. Global Const DATA_ACTIONMOVEFIRST = 1
  391. Global Const DATA_ACTIONMOVEPREVIOUS = 2
  392. Global Const DATA_ACTIONMOVENEXT = 3
  393. Global Const DATA_ACTIONMOVELAST = 4
  394. Global Const DATA_ACTIONADDNEW = 5
  395. Global Const DATA_ACTIONUPDATE = 6
  396. Global Const DATA_ACTIONDELETE = 7
  397. Global Const DATA_ACTIONFIND = 8
  398. Global Const DATA_ACTIONBOOKMARK = 9
  399. Global Const DATA_ACTIONCLOSE = 10
  400. Global Const DATA_ACTIONUNLOAD = 11
  401.  
  402.  
  403. 'OLE Client Control
  404. 'Actions
  405. Global Const OLE_CREATE_EMBED = 0
  406. Global Const OLE_CREATE_NEW = 0           'from ole1 control
  407. Global Const OLE_CREATE_LINK = 1
  408. Global Const OLE_CREATE_FROM_FILE = 1     'from ole1 control
  409. Global Const OLE_COPY = 4
  410. Global Const OLE_PASTE = 5
  411. Global Const OLE_UPDATE = 6
  412. Global Const OLE_ACTIVATE = 7
  413. Global Const OLE_CLOSE = 9
  414. Global Const OLE_DELETE = 10
  415. Global Const OLE_SAVE_TO_FILE = 11
  416. Global Const OLE_READ_FROM_FILE = 12
  417. Global Const OLE_INSERT_OBJ_DLG = 14
  418. Global Const OLE_PASTE_SPECIAL_DLG = 15
  419. Global Const OLE_FETCH_VERBS = 17
  420. Global Const OLE_SAVE_TO_OLE1FILE = 18
  421.  
  422. 'OLEType
  423. Global Const OLE_LINKED = 0
  424. Global Const OLE_EMBEDDED = 1
  425. Global Const OLE_NONE = 3
  426.  
  427. 'OLETypeAllowed
  428. Global Const OLE_EITHER = 2
  429.  
  430. 'UpdateOptions
  431. Global Const OLE_AUTOMATIC = 0
  432. Global Const OLE_FROZEN = 1
  433. Global Const OLE_MANUAL = 2
  434.  
  435. 'AutoActivate modes
  436. 'Note that OLE_ACTIVATE_GETFOCUS only applies to objects that
  437. 'support "inside-out" activation.  See related Verb notes below.
  438. Global Const OLE_ACTIVATE_MANUAL = 0
  439. Global Const OLE_ACTIVATE_GETFOCUS = 1
  440. Global Const OLE_ACTIVATE_DOUBLECLICK = 2
  441.  
  442. 'SizeModes
  443. Global Const OLE_SIZE_CLIP = 0
  444. Global Const OLE_SIZE_STRETCH = 1
  445. Global Const OLE_SIZE_AUTOSIZE = 2
  446.  
  447. 'DisplayTypes
  448. Global Const OLE_DISPLAY_CONTENT = 0
  449. Global Const OLE_DISPLAY_ICON = 1
  450.  
  451. 'Update Event Constants
  452. Global Const OLE_CHANGED = 0
  453. Global Const OLE_SAVED = 1
  454. Global Const OLE_CLOSED = 2
  455. Global Const OLE_RENAMED = 3
  456.  
  457. 'Special Verb Values
  458. Global Const VERB_PRIMARY = 0
  459. Global Const VERB_SHOW = -1
  460. Global Const VERB_OPEN = -2
  461. Global Const VERB_HIDE = -3
  462. Global Const VERB_INPLACEUIACTIVATE = -4
  463. Global Const VERB_INPLACEACTIVATE = -5
  464. 'The last two verbs are for objects that support "inside-out" activation,
  465. 'meaning they can be edited in-place, and that they support being left
  466. 'in-place-active even when the input focus moves to another control or form.
  467. 'These objects actually have 2 levels of being active.  "InPlace Active"
  468. 'means that the object is ready for the user to click inside it and start
  469. 'working with it.  "In-Place UI-Active" means that, in addition, if the object
  470. 'has any other UI associated with it, such as floating palette windows,
  471. 'that those windows are visible and ready for use.  Any number of objects
  472. 'can be "In-Place Active" at a time, although only one can be
  473. '"InPlace UI-Active".
  474.  
  475. 'You can cause an object to move to either one of states programmatically by
  476. 'setting the Verb property to the appropriate verb and setting
  477. 'Action=OLE_ACTIVATE.
  478.  
  479. 'Also, if you set AutoActivate = OLE_ACTIVATE_GETFOCUS, the server will
  480. 'automatically be put into "InPlace UI-Active" state when the user clicks
  481. 'on or tabs into the control.
  482.  
  483. 'VerbFlag Bit Masks
  484. Global Const VERBFLAG_GRAYED = &H1
  485. Global Const VERBFLAG_DISABLED = &H2
  486. Global Const VERBFLAG_CHECKED = &H8
  487. Global Const VERBFLAG_SEPARATOR = &H800
  488.  
  489. 'MiscFlag Bits - Or these together as desired for special behaviors
  490.  
  491. 'MEMSTORAGE causes the control to use memory to store the object while
  492. '           it is loaded.  This is faster than the default (disk-tempfile),
  493. '           but can consume a lot of memory for objects whose data takes
  494. '           up a lot of space, such as the bitmap for a paint program.
  495. Global Const OLE_MISCFLAG_MEMSTORAGE = &H1
  496.  
  497. 'DISABLEINPLACE overrides the control's default behavior of allowing
  498. '           in-place activation for objects that support it.  If you
  499. '           are having problems activating an object inplace, you can
  500. '           force it to always activate in a separate window by setting this
  501. '           bit
  502. Global Const OLE_MISCFLAG_DISABLEINPLACE = &H2
  503.  
  504. 'Common Dialog Control
  505. 'Action Property
  506. Global Const DLG_FILE_OPEN = 1
  507. Global Const DLG_FILE_SAVE = 2
  508. Global Const DLG_COLOR = 3
  509. Global Const DLG_FONT = 4
  510. Global Const DLG_PRINT = 5
  511. Global Const DLG_HELP = 6
  512.  
  513. 'File Open/Save Dialog Flags
  514. Global Const OFN_READONLY = &H1&
  515. Global Const OFN_OVERWRITEPROMPT = &H2&
  516. Global Const OFN_HIDEREADONLY = &H4&
  517. Global Const OFN_NOCHANGEDIR = &H8&
  518. Global Const OFN_SHOWHELP = &H10&
  519. Global Const OFN_NOVALIDATE = &H100&
  520. Global Const OFN_ALLOWMULTISELECT = &H200&
  521. Global Const OFN_EXTENSIONDIFFERENT = &H400&
  522. Global Const OFN_PATHMUSTEXIST = &H800&
  523. Global Const OFN_FILEMUSTEXIST = &H1000&
  524. Global Const OFN_CREATEPROMPT = &H2000&
  525. Global Const OFN_SHAREAWARE = &H4000&
  526. Global Const OFN_NOREADONLYRETURN = &H8000&
  527.  
  528. 'Color Dialog Flags
  529. Global Const CC_RGBINIT = &H1&
  530. Global Const CC_FULLOPEN = &H2&
  531. Global Const CC_PREVENTFULLOPEN = &H4&
  532. Global Const CC_SHOWHELP = &H8&
  533.  
  534. 'Fonts Dialog Flags
  535. Global Const CF_SCREENFONTS = &H1&
  536. Global Const CF_PRINTERFONTS = &H2&
  537. Global Const CF_BOTH = &H3&
  538. Global Const CF_SHOWHELP = &H4&
  539. Global Const CF_INITTOLOGFONTSTRUCT = &H40&
  540. Global Const CF_USESTYLE = &H80&
  541. Global Const CF_EFFECTS = &H100&
  542. Global Const CF_APPLY = &H200&
  543. Global Const CF_ANSIONLY = &H400&
  544. Global Const CF_NOVECTORFONTS = &H800&
  545. Global Const CF_NOSIMULATIONS = &H1000&
  546. Global Const CF_LIMITSIZE = &H2000&
  547. Global Const CF_FIXEDPITCHONLY = &H4000&
  548. Global Const CF_WYSIWYG = &H8000&         'must also have CF_SCREENFONTS & CF_PRINTERFONTS
  549. Global Const CF_FORCEFONTEXIST = &H10000
  550. Global Const CF_SCALABLEONLY = &H20000
  551. Global Const CF_TTONLY = &H40000
  552. Global Const CF_NOFACESEL = &H80000
  553. Global Const CF_NOSTYLESEL = &H100000
  554. Global Const CF_NOSIZESEL = &H200000
  555.  
  556. 'Printer Dialog Flags
  557. Global Const PD_ALLPAGES = &H0&
  558. Global Const PD_SELECTION = &H1&
  559. Global Const PD_PAGENUMS = &H2&
  560. Global Const PD_NOSELECTION = &H4&
  561. Global Const PD_NOPAGENUMS = &H8&
  562. Global Const PD_COLLATE = &H10&
  563. Global Const PD_PRINTTOFILE = &H20&
  564. Global Const PD_PRINTSETUP = &H40&
  565. Global Const PD_NOWARNING = &H80&
  566. Global Const PD_RETURNDC = &H100&
  567. Global Const PD_RETURNIC = &H200&
  568. Global Const PD_RETURNDEFAULT = &H400&
  569. Global Const PD_SHOWHELP = &H800&
  570. Global Const PD_USEDEVMODECOPIES = &H40000
  571. Global Const PD_DISABLEPRINTTOFILE = &H80000
  572. Global Const PD_HIDEPRINTTOFILE = &H100000
  573.  
  574. 'Help Constants
  575. Global Const HELP_CONTEXT = &H1           'Display topic in ulTopic
  576. Global Const HELP_QUIT = &H2              'Terminate help
  577. Global Const HELP_INDEX = &H3             'Display index
  578. Global Const HELP_CONTENTS = &H3
  579. Global Const HELP_HELPONHELP = &H4        'Display help on using help
  580. Global Const HELP_SETINDEX = &H5          'Set the current Index for multi index help
  581. Global Const HELP_SETCONTENTS = &H5
  582. Global Const HELP_CONTEXTPOPUP = &H8
  583. Global Const HELP_FORCEFILE = &H9
  584. Global Const HELP_KEY = &H101             'Display topic for keyword in offabData
  585. Global Const HELP_COMMAND = &H102
  586. Global Const HELP_PARTIALKEY = &H105      'call the search engine in winhelp
  587.  
  588. 'Error Constants
  589. Global Const CDERR_DIALOGFAILURE = -32768
  590.  
  591. Global Const CDERR_GENERALCODES = &H7FFF
  592. Global Const CDERR_STRUCTSIZE = &H7FFE
  593. Global Const CDERR_INITIALIZATION = &H7FFD
  594. Global Const CDERR_NOTEMPLATE = &H7FFC
  595. Global Const CDERR_NOHINSTANCE = &H7FFB
  596. Global Const CDERR_LOADSTRFAILURE = &H7FFA
  597. Global Const CDERR_FINDRESFAILURE = &H7FF9
  598. Global Const CDERR_LOADRESFAILURE = &H7FF8
  599. Global Const CDERR_LOCKRESFAILURE = &H7FF7
  600. Global Const CDERR_MEMALLOCFAILURE = &H7FF6
  601. Global Const CDERR_MEMLOCKFAILURE = &H7FF5
  602. Global Const CDERR_NOHOOK = &H7FF4
  603.  
  604. 'Added for CMDIALOG.VBX
  605. Global Const CDERR_CANCEL = &H7FF3
  606. Global Const CDERR_NODLL = &H7FF2
  607. Global Const CDERR_ERRPROC = &H7FF1
  608. Global Const CDERR_ALLOC = &H7FF0
  609. Global Const CDERR_HELP = &H7FEF
  610.  
  611. Global Const PDERR_PRINTERCODES = &H6FFF
  612. Global Const PDERR_SETUPFAILURE = &H6FFE
  613. Global Const PDERR_PARSEFAILURE = &H6FFD
  614. Global Const PDERR_RETDEFFAILURE = &H6FFC
  615. Global Const PDERR_LOADDRVFAILURE = &H6FFB
  616. Global Const PDERR_GETDEVMODEFAIL = &H6FFA
  617. Global Const PDERR_INITFAILURE = &H6FF9
  618. Global Const PDERR_NODEVICES = &H6FF8
  619. Global Const PDERR_NODEFAULTPRN = &H6FF7
  620. Global Const PDERR_DNDMMISMATCH = &H6FF6
  621. Global Const PDERR_CREATEICFAILURE = &H6FF5
  622. Global Const PDERR_PRINTERNOTFOUND = &H6FF4
  623.  
  624. Global Const CFERR_CHOOSEFONTCODES = &H5FFF
  625. Global Const CFERR_NOFONTS = &H5FFE
  626.  
  627. Global Const FNERR_FILENAMECODES = &H4FFF
  628. Global Const FNERR_SUBCLASSFAILURE = &H4FFE
  629. Global Const FNERR_INVALIDFILENAME = &H4FFD
  630. Global Const FNERR_BUFFERTOOSMALL = &H4FFC
  631.  
  632. Global Const FRERR_FINDREPLACECODES = &H3FFF
  633. Global Const CCERR_CHOOSECOLORCODES = &H2FFF
  634.  
  635.  
  636. '---------------------------------------------------------
  637. '      Table of Contents for Visual Basic Professional
  638. '
  639. '       1.  3-D Controls
  640. '           (Frame/Panel/Option/Check/Command/Group Push)
  641. '       2.  Animated Button
  642. '       3.  Gauge Control
  643. '       4.  Graph Control Section
  644. '       5.  Key Status Control
  645. '       6.  Spin Button
  646. '       7.  MCI Control (Multimedia)
  647. '       8.  Masked Edit Control
  648. '       9.  Comm Control
  649. '       10. Outline Control
  650. '---------------------------------------------------------
  651.  
  652.  
  653. '-------------------------------------------------------------------
  654. '3D Controls
  655. '-------------------------------------------------------------------
  656. 'Alignment (Check Box)
  657. Global Const SSCB_TEXT_RIGHT = 0         '0 - Text to the right
  658. Global Const SSCB_TEXT_LEFT = 1          '1 - Text to the left
  659.  
  660. 'Alignment (Option Button)
  661. Global Const SSOB_TEXT_RIGHT = 0         '0 - Text to the right
  662. Global Const SSOB_TEXT_LEFT = 1          '1 - Text to the left
  663.  
  664. 'Alignment (Frame)
  665. Global Const SSFR_LEFT_JUSTIFY = 0       '0 - Left justify text
  666. Global Const SSFR_RIGHT_JUSTIFY = 1      '1 - Right justify text
  667. Global Const SSFR_CENTER = 2             '2 - Center text
  668.  
  669. 'Alignment (Panel)
  670. Global Const SSPN_LEFT_TOP = 0           '0 - Text to left and top
  671. Global Const SSPN_LEFT_MIDDLE = 1        '1 - Text to left and middle
  672. Global Const SSPN_LEFT_BOTTOM = 2        '2 - Text to left and bottom
  673. Global Const SSPN_RIGHT_TOP = 3          '3 - Text to right and top
  674. Global Const SSPN_RIGHT_MIDDLE = 4       '4 - Text to right and middle
  675. Global Const SSPN_RIGHT_BOTTOM = 5       '5 - Text to right and bottom
  676. Global Const SSPN_CENTER_TOP = 6         '6 - Text to center and top
  677. Global Const SSPN_CENTER_MIDDLE = 7      '7 - Text to center and middle
  678. Global Const SSPN_CENTER_BOTTOM = 8      '8 - Text to center and bottom
  679.  
  680. 'Autosize (Command Button)
  681. Global Const SS_AUTOSIZE_NONE = 0        '0 - No Autosizing
  682. Global Const SSPB_AUTOSIZE_PICTOBUT = 1  '0 - Autosize Picture to Button
  683. Global Const SSPB_AUTOSIZE_BUTTOPIC = 2  '0 - Autosize Button to Picture
  684.  
  685. 'Autosize (Ribbon Button)
  686. 'Global Const SS_AUTOSIZE_NONE      = 0  '0 - No Autosizing
  687. Global Const SSRI_AUTOSIZE_PICTOBUT = 1  '0 - Autosize Picture to Button
  688. Global Const SSRI_AUTOSIZE_BUTTOPIC = 2  '0 - Autosize Button to Picture
  689.  
  690. 'Autosize (Panel)
  691. 'Global Const SS_AUTOSIZE_NONE    = 0    '0 - No Autosizing
  692. Global Const SSPN_AUTOSIZE_WIDTH = 1     '1 - Autosize Panel width to Caption
  693. Global Const SSPN_AUTOSIZE_HEIGHT = 2    '2 - Autosize Panel height to Caption
  694. Global Const SSPN_AUTOSIZE_CHILD = 3     '3 - Autosize Child to Panel
  695.  
  696. 'BevelInner (Panel)
  697. Global Const SS_BEVELINNER_NONE = 0      '0 - No Inner Bevel
  698. Global Const SS_BEVELINNER_INSET = 1     '1 - Inset Inner Bevel
  699. Global Const SS_BEVELINNER_RAISED = 2    '2 - Raised Inner Bevel
  700.  
  701. 'BevelOuter (Panel)
  702. Global Const SS_BEVELOUTER_NONE = 0      '0 - No Outer Bevel
  703. Global Const SS_BEVELOUTER_INSET = 1     '1 - Inset Outer Bevel
  704. Global Const SS_BEVELOUTER_RAISED = 2    '2 - Raised Outer Bevel
  705.  
  706. 'FloodType (Panel)
  707. Global Const SS_FLOODTYPE_NONE = 0       '0 - No flood
  708. Global Const SS_FLOODTYPE_L_TO_R = 1     '1 - Left to light
  709. Global Const SS_FLOODTYPE_R_TO_L = 2     '2 - Right to left
  710. Global Const SS_FLOODTYPE_T_TO_B = 3     '3 - Top to bottom
  711. Global Const SS_FLOODTYPE_B_TO_T = 4     '4 - Bottom to top
  712. Global Const SS_FLOODTYPE_CIRCLE = 5     '5 - Widening circle
  713.  
  714. 'Font3D (Panel, Command Button, Option Button, Check Box, Frame)
  715. Global Const SS_FONT3D_NONE = 0          '0 - No 3-D text
  716. Global Const SS_FONT3D_RAISED_LIGHT = 1  '1 - Raised with light shading
  717. Global Const SS_FONT3D_RAISED_HEAVY = 2  '2 - Raised with heavy shading
  718. Global Const SS_FONT3D_INSET_LIGHT = 3   '3 - Inset with light shading
  719. Global Const SS_FONT3D_INSET_HEAVY = 4   '4 - Inset with heavy shading
  720.  
  721. 'PictureDnChange (Ribbon Button)
  722. Global Const SS_PICDN_NOCHANGE = 0       '0 - Use 'Up'bitmap with no change
  723. Global Const SS_PICDN_DITHER = 1         '1 - Dither 'Up'bitmap
  724. Global Const SS_PICDN_INVERT = 2         '2 - Invert 'Up'bitmap
  725.  
  726. 'ShadowColor (Panel, Frame)
  727. Global Const SS_SHADOW_DARKGREY = 0      '0 - Dark grey shadow
  728. Global Const SS_SHADOW_BLACK = 1         '1 - Black shadow
  729.  
  730. 'ShadowStyle (Frame)
  731. Global Const SS_SHADOW_INSET = 0         '0 - Shadow inset
  732. Global Const SS_SHADOW_RAISED = 1        '1 - Shadow raised
  733.  
  734.  
  735. '---------------------------------------
  736. 'Animated Button
  737. '---------------------------------------
  738. 'Cycle property
  739. Global Const ANI_ANIMATED = 0
  740. Global Const ANI_MULTISTATE = 1
  741. Global Const ANI_TWO_STATE = 2
  742.  
  743. 'Click Filter property
  744. Global Const ANI_ANYWHERE = 0
  745. Global Const ANI_IMAGE_AND_TEXT = 1
  746. Global Const ANI_IMAGE = 2
  747. Global Const ANI_TEXT = 3
  748.  
  749. 'PicDrawMode Property
  750. Global Const ANI_XPOS_YPOS = 0
  751. Global Const ANI_AUTOSIZE = 1
  752. Global Const ANI_STRETCH = 2
  753.  
  754. 'SpecialOp Property
  755. Global Const ANI_CLICK = 1
  756.  
  757. 'TextPosition Property
  758. Global Const ANI_CENTER = 0
  759. Global Const ANI_LEFT = 1
  760. Global Const ANI_RIGHT = 2
  761. Global Const ANI_BOTTON = 3
  762. Global Const ANI_TOP = 4
  763.  
  764.  
  765. '---------------------------------------
  766. 'GAUGE
  767. '---------------------------------------
  768. 'Style Property
  769. Global Const GAUGE_HORIZ = 0
  770. Global Const GAUGE_VERT = 1
  771. Global Const GAUGE_SEMI = 2
  772. Global Const GAUGE_FULL = 3
  773.  
  774.  
  775. '----------------------------------------
  776. 'Graph Control
  777. '----------------------------------------
  778. 'General
  779. Global Const G_NONE = 0
  780. Global Const G_DEFAULT = 0
  781.  
  782. Global Const G_OFF = 0
  783. Global Const G_ON = 1
  784.  
  785. Global Const G_MONO = 0
  786. Global Const G_COLOR = 1
  787.  
  788. 'Graph Types
  789. Global Const G_PIE2D = 1
  790. Global Const G_PIE3D = 2
  791. Global Const G_BAR2D = 3
  792. Global Const G_BAR3D = 4
  793. Global Const G_GANTT = 5
  794. Global Const G_LINE = 6
  795. Global Const G_LOGLIN = 7
  796. Global Const G_AREA = 8
  797. Global Const G_SCATTER = 9
  798. Global Const G_POLAR = 10
  799. Global Const G_HLC = 11
  800.  
  801. 'Colors
  802. Global Const G_BLACK = 0
  803. Global Const G_BLUE = 1
  804. Global Const G_GREEN = 2
  805. Global Const G_CYAN = 3
  806. Global Const G_RED = 4
  807. Global Const G_MAGENTA = 5
  808. Global Const G_BROWN = 6
  809. Global Const G_LIGHT_GRAY = 7
  810. Global Const G_DARK_GRAY = 8
  811. Global Const G_LIGHT_BLUE = 9
  812. Global Const G_LIGHT_GREEN = 10
  813. Global Const G_LIGHT_CYAN = 11
  814. Global Const G_LIGHT_RED = 12
  815. Global Const G_LIGHT_MAGENTA = 13
  816. Global Const G_YELLOW = 14
  817. Global Const G_WHITE = 15
  818. Global Const G_AUTOBW = 16
  819.  
  820. 'Patterns
  821. Global Const G_SOLID = 0
  822. Global Const G_HOLLOW = 1
  823. Global Const G_HATCH1 = 2
  824. Global Const G_HATCH2 = 3
  825. Global Const G_HATCH3 = 4
  826. Global Const G_HATCH4 = 5
  827. Global Const G_HATCH5 = 6
  828. Global Const G_HATCH6 = 7
  829. Global Const G_BITMAP1 = 16
  830. Global Const G_BITMAP2 = 17
  831. Global Const G_BITMAP3 = 18
  832. Global Const G_BITMAP4 = 19
  833. Global Const G_BITMAP5 = 20
  834. Global Const G_BITMAP6 = 21
  835. Global Const G_BITMAP7 = 22
  836. Global Const G_BITMAP8 = 23
  837. Global Const G_BITMAP9 = 24
  838. Global Const G_BITMAP10 = 25
  839. Global Const G_BITMAP11 = 26
  840. Global Const G_BITMAP12 = 27
  841. Global Const G_BITMAP13 = 28
  842. Global Const G_BITMAP14 = 29
  843. Global Const G_BITMAP15 = 30
  844. Global Const G_BITMAP16 = 31
  845.  
  846. 'Symbols
  847. Global Const G_CROSS_PLUS = 0
  848. Global Const G_CROSS_TIMES = 1
  849. Global Const G_TRIANGLE_UP = 2
  850. Global Const G_SOLID_TRIANGLE_UP = 3
  851. Global Const G_TRIANGLE_DOWN = 4
  852. Global Const G_SOLID_TRIANGLE_DOWN = 5
  853. Global Const G_SQUARE = 6
  854. Global Const G_SOLID_SQUARE = 7
  855. Global Const G_DIAMOND = 8
  856. Global Const G_SOLID_DIAMOND = 9
  857.  
  858. 'Line Styles
  859. 'Global Const G_SOLID = 0
  860. Global Const G_DASH = 1
  861. Global Const G_DOT = 2
  862. Global Const G_DASHDOT = 3
  863. Global Const G_DASHDOTDOT = 4
  864.  
  865. 'Grids
  866. Global Const G_HORIZONTAL = 1
  867. Global Const G_VERTICAL = 2
  868.  
  869. 'Statistics
  870. Global Const G_MEAN = 1
  871. Global Const G_MIN_MAX = 2
  872. Global Const G_STD_DEV = 4
  873. Global Const G_BEST_FIT = 8
  874.  
  875. 'Data Arrays
  876. Global Const G_GRAPH_DATA = 1
  877. Global Const G_COLOR_DATA = 2
  878. Global Const G_EXTRA_DATA = 3
  879. Global Const G_LABEL_TEXT = 4
  880. Global Const G_LEGEND_TEXT = 5
  881. Global Const G_PATTERN_DATA = 6
  882. Global Const G_SYMBOL_DATA = 7
  883. Global Const G_XPOS_DATA = 8
  884. Global Const G_ALL_DATA = 9
  885.  
  886. 'Draw Mode
  887. Global Const G_NO_ACTION = 0
  888. Global Const G_CLEAR = 1
  889. Global Const G_DRAW = 2
  890. Global Const G_BLIT = 3
  891. Global Const G_COPY = 4
  892. Global Const G_PRINT = 5
  893. Global Const G_WRITE = 6
  894.  
  895. 'Print Options
  896. Global Const G_BORDER = 2
  897.  
  898. 'Pie Chart Options             '
  899. Global Const G_NO_LINES = 1
  900. Global Const G_COLORED = 2
  901. Global Const G_PERCENTS = 4
  902.  
  903. 'Bar Chart Options             '
  904. 'Global Const G_HORIZONTAL = 1
  905. Global Const G_STACKED = 2
  906. Global Const G_PERCENTAGE = 4
  907. Global Const G_Z_CLUSTERED = 6
  908.  
  909. 'Gantt Chart Options           '
  910. Global Const G_SPACED_BARS = 1
  911.  
  912. 'Line/Polar Chart Options      '
  913. Global Const G_SYMBOLS = 1
  914. Global Const G_STICKS = 2
  915. Global Const G_LINES = 4
  916.  
  917. 'Area Chart Options            '
  918. Global Const G_ABSOLUTE = 1
  919. Global Const G_PERCENT = 2
  920.  
  921. 'HLC Chart Options             '
  922. Global Const G_NO_CLOSE = 1
  923. Global Const G_NO_HIGH_LOW = 2
  924.  
  925.  
  926. '---------------------------------------
  927. 'Key Status Control
  928. '---------------------------------------
  929. 'Style
  930. Global Const KEYSTAT_CAPSLOCK = 0
  931. Global Const KEYSTAT_NUMLOCK = 1
  932. Global Const KEYSTAT_INSERT = 2
  933. Global Const KEYSTAT_SCROLLLOCK = 3
  934.  
  935.  
  936. '---------------------------------------
  937. 'MCI Control (Multimedia)
  938. '---------------------------------------
  939. 'NOTE:
  940. 'Please use the updated Multimedia constants
  941. 'in the WINMMSYS.TXT file from the \VB\WINAPI
  942. 'subdirectory.
  943.  
  944. 'Mode Property
  945. 'Global Const MCI_MODE_NOT_OPEN = 11
  946. 'Global Const MCI_MODE_STOP = 12
  947. 'Global Const MCI_MODE_PLAY = 13
  948. 'Global Const MCI_MODE_RECORD = 14
  949. 'Global Const MCI_MODE_SEEK = 15
  950. 'Global Const MCI_MODE_PAUSE = 16
  951. 'Global Const MCI_MODE_READY = 17
  952.  
  953. 'NotifyValue Property
  954. 'Global Const MCI_NOTIFY_SUCCESSFUL = 1
  955. 'Global Const MCI_NOTIFY_SUPERSEDED = 2
  956. 'Global Const MCI_ABORTED = 4
  957. 'Global Const MCI_FAILURE = 8
  958.  
  959. 'Orientation Property
  960. 'Global Const MCI_ORIENT_HORZ = 0
  961. 'Global Const MCI_ORIENT_VERT = 1
  962.  
  963. 'RecordMode Porperty
  964. 'Global Const MCI_RECORD_INSERT = 0
  965. 'Global Const MCI_RECORD_OVERWRITE = 1
  966.  
  967. 'TimeFormat Property
  968. 'Global Const MCI_FORMAT_MILLISECONDS = 0
  969. 'Global Const MCI_FORMAT_HMS = 1
  970. 'Global Const MCI_FORMAT_MSF = 2
  971. 'Global Const MCI_FORMAT_FRAMES = 3
  972. 'Global Const MCI_FORMAT_SMPTE_24 = 4
  973. 'Global Const MCI_FORMAT_SMPTE_25 = 5
  974. 'Global Const MCI_FORMAT_SMPTE_30 = 6
  975. 'Global Const MCI_FORMAT_SMPTE_30DROP = 7
  976. 'Global Const MCI_FORMAT_BYTES = 8
  977. 'Global Const MCI_FORMAT_SAMPLES = 9
  978. 'Global Const MCI_FORMAT_TMSF = 10
  979.  
  980.  
  981. '---------------------------------------
  982. 'Spin Button
  983. '---------------------------------------
  984. 'SpinOrientation
  985. Global Const SPIN_VERTICAL = 0
  986. Global Const SPIN_HORIZONTAL = 1
  987.  
  988.  
  989. '---------------------------------------
  990. 'Masked Edit Control
  991. '---------------------------------------
  992. 'ClipMode
  993. Global Const ME_INCLIT = 0
  994. Global Const ME_EXCLIT = 1
  995.  
  996.  
  997. '---------------------------------------
  998. 'Comm Control
  999. '---------------------------------------
  1000. 'Handshaking
  1001. Global Const MSCOMM_HANDSHAKE_NONE = 0
  1002. Global Const MSCOMM_HANDSHAKE_XONXOFF = 1
  1003. Global Const MSCOMM_HANDSHAKE_RTS = 2
  1004. Global Const MSCOMM_HANDSHAKE_RTSXONXOFF = 3
  1005.  
  1006. 'Event constants
  1007. Global Const MSCOMM_EV_SEND = 1
  1008. Global Const MSCOMM_EV_RECEIVE = 2
  1009. Global Const MSCOMM_EV_CTS = 3
  1010. Global Const MSCOMM_EV_DSR = 4
  1011. Global Const MSCOMM_EV_CD = 5
  1012. Global Const MSCOMM_EV_RING = 6
  1013. Global Const MSCOMM_EV_EOF = 7
  1014.  
  1015. 'Error code constants
  1016. Global Const MSCOMM_ER_BREAK = 1001
  1017. Global Const MSCOMM_ER_CTSTO = 1002
  1018. Global Const MSCOMM_ER_DSRTO = 1003
  1019. Global Const MSCOMM_ER_FRAME = 1004
  1020. Global Const MSCOMM_ER_OVERRUN = 1006
  1021. Global Const MSCOMM_ER_CDTO = 1007
  1022. Global Const MSCOMM_ER_RXOVER = 1008
  1023. Global Const MSCOMM_ER_RXPARITY = 1009
  1024. Global Const MSCOMM_ER_TXFULL = 1010
  1025.  
  1026.  
  1027. '---------------------------------------
  1028. ' MAPI SESSION CONTROL CONSTANTS
  1029. '---------------------------------------
  1030. 'Action
  1031. Global Const SESSION_SIGNON = 1
  1032. Global Const SESSION_SIGNOFF = 2
  1033.  
  1034.  
  1035. '---------------------------------------
  1036. ' MAPI MESSAGE CONTROL CONSTANTS
  1037. '---------------------------------------
  1038. 'Action
  1039. Global Const MESSAGE_FETCH = 1             ' Load all messages from message store
  1040. Global Const MESSAGE_SENDDLG = 2           ' Send mail bring up default mapi dialog
  1041. Global Const MESSAGE_SEND = 3              ' Send mail without default mapi dialog
  1042. Global Const MESSAGE_SAVEMSG = 4           ' Save message in the compose buffer
  1043. Global Const MESSAGE_COPY = 5              ' Copy current message to compose buffer
  1044. Global Const MESSAGE_COMPOSE = 6           ' Initialize compose buffer (previous
  1045.                        ' data is lost
  1046. Global Const MESSAGE_REPLY = 7             ' Fill Compose buffer as REPLY
  1047. Global Const MESSAGE_REPLYALL = 8          ' Fill Compose buffer as REPLY ALL
  1048. Global Const MESSAGE_FORWARD = 9           ' Fill Compose buffer as FORWARD
  1049. Global Const MESSAGE_DELETE = 10           ' Delete current message
  1050. Global Const MESSAGE_SHOWADBOOK = 11       ' Show Address book
  1051. Global Const MESSAGE_SHOWDETAILS = 12      ' Show details of the current recipient
  1052. Global Const MESSAGE_RESOLVENAME = 13      ' Resolve the display name of the recipient
  1053. Global Const RECIPIENT_DELETE = 14            ' Fill Compose buffer as FORWARD
  1054. Global Const ATTACHMENT_DELETE = 15          ' Delete current message
  1055.  
  1056.  
  1057. '---------------------------------------
  1058. '  ERROR CONSTANT DECLARATIONS (MAPI CONTROLS)
  1059. '---------------------------------------
  1060. Global Const SUCCESS_SUCCESS = 32000
  1061. Global Const MAPI_USER_ABORT = 32001
  1062. Global Const MAPI_E_FAILURE = 32002
  1063. Global Const MAPI_E_LOGIN_FAILURE = 32003
  1064. Global Const MAPI_E_DISK_FULL = 32004
  1065. Global Const MAPI_E_INSUFFICIENT_MEMORY = 32005
  1066. Global Const MAPI_E_ACCESS_DENIED = 32006
  1067. Global Const MAPI_E_TOO_MANY_SESSIONS = 32008
  1068. Global Const MAPI_E_TOO_MANY_FILES = 32009
  1069. Global Const MAPI_E_TOO_MANY_RECIPIENTS = 32010
  1070. Global Const MAPI_E_ATTACHMENT_NOT_FOUND = 32011
  1071. Global Const MAPI_E_ATTACHMENT_OPEN_FAILURE = 32012
  1072. Global Const MAPI_E_ATTACHMENT_WRITE_FAILURE = 32013
  1073. Global Const MAPI_E_UNKNOWN_RECIPIENT = 32014
  1074. Global Const MAPI_E_BAD_RECIPTYPE = 32015
  1075. Global Const MAPI_E_NO_MESSAGES = 32016
  1076. Global Const MAPI_E_INVALID_MESSAGE = 32017
  1077. Global Const MAPI_E_TEXT_TOO_LARGE = 32018
  1078. Global Const MAPI_E_INVALID_SESSION = 32019
  1079. Global Const MAPI_E_TYPE_NOT_SUPPORTED = 32020
  1080. Global Const MAPI_E_AMBIGUOUS_RECIPIENT = 32021
  1081. Global Const MAPI_E_MESSAGE_IN_USE = 32022
  1082. Global Const MAPI_E_NETWORK_FAILURE = 32023
  1083. Global Const MAPI_E_INVALID_EDITFIELDS = 32024
  1084. Global Const MAPI_E_INVALID_RECIPS = 32025
  1085. Global Const MAPI_E_NOT_SUPPORTED = 32026
  1086.  
  1087. Global Const CONTROL_E_SESSION_EXISTS = 32050
  1088. Global Const CONTROL_E_INVALID_BUFFER = 32051
  1089. Global Const CONTROL_E_INVALID_READ_BUFFER_ACTION = 32052
  1090. Global Const CONTROL_E_NO_SESSION = 32053
  1091. Global Const CONTROL_E_INVALID_RECIPIENT = 32054
  1092. Global Const CONTROL_E_INVALID_COMPOSE_BUFFER_ACTION = 32055
  1093. Global Const CONTROL_E_FAILURE = 32056
  1094. Global Const CONTROL_E_NO_RECIPIENTS = 32057
  1095. Global Const CONTROL_E_NO_ATTACHMENTS = 32058
  1096.  
  1097.  
  1098. '---------------------------------------
  1099. '  MISCELLANEOUS GLOBAL CONSTANT DECLARATIONS (MAPI CONTROLS)
  1100. '---------------------------------------
  1101. Global Const RECIPTYPE_ORIG = 0
  1102. Global Const RECIPTYPE_TO = 1
  1103. Global Const RECIPTYPE_CC = 2
  1104. Global Const RECIPTYPE_BCC = 3
  1105.  
  1106. Global Const ATTACHTYPE_DATA = 0
  1107. Global Const ATTACHTYPE_EOLE = 1
  1108. Global Const ATTACHTYPE_SOLE = 2
  1109.  
  1110.  
  1111. '-------------------------------------------------
  1112. '  Outline
  1113. '-------------------------------------------------
  1114. ' PictureType
  1115. Global Const MSOUTLINE_PICTURE_CLOSED = 0
  1116. Global Const MSOUTLINE_PICTURE_OPEN = 1
  1117. Global Const MSOUTLINE_PICTURE_LEAF = 2
  1118.  
  1119. 'Outline Control Error Constants
  1120. Global Const MSOUTLINE_BADPICFORMAT = 32000
  1121. Global Const MSOUTLINE_BADINDENTATION = 32001
  1122. Global Const MSOUTLINE_MEM = 32002
  1123. Global Const MSOUTLINE_PARENTNOTEXPANDED = 32003
  1124.  
  1125. ' Constants and global variables
  1126. Global Const START_MODE = 0
  1127. Global Const STOP_MODE = 1
  1128.  
  1129. Global AutoFlag As Integer
  1130. Global ClientMode As Integer
  1131. Global StartStop As Integer
  1132. Global ServerString As String
  1133. Global HostFileName As String
  1134.  
  1135. Declare Function GetPrivateProfileString Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
  1136. Declare Function WritePrivateProfileString Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lplFileName As String) As Integer
  1137. Declare Function WinHelp Lib "User" (ByVal HWND As Integer, ByVal lpHelpFile As String, ByVal wCommand As Integer, dwData As Any) As Integer
  1138.  
  1139. Function AskHostFileName () As String
  1140.  
  1141.     Dim RetVal As String
  1142.     MsgBox "Please Enter The Name Of The Host File"
  1143.     AskHostFileName = ""
  1144.     On Error Resume Next
  1145.     Dim OpenFileName As String
  1146.     mainform.CMDialog1.Filename = ""
  1147.     mainform.CMDialog1.Action = 1
  1148.     ' The CMDialog will set Err to
  1149.     ' 32755 if Cancel was pressed
  1150.     If Err <> 32755 Then
  1151.     AskHostFileName = mainform.CMDialog1.Filename
  1152.     End If
  1153.  
  1154. End Function
  1155.  
  1156. Sub main ()
  1157.  
  1158.     ServerString = ""
  1159.     iniFileName = "chat.ini"
  1160. '   I will need to open the host table
  1161. '   to fill the drop down dialog
  1162.     HostFileName = GetIniData("Host Name", "File Name")
  1163.     If Len(HostFileName) = 0 Then
  1164.     HostFileName = AskHostFileName()
  1165.  
  1166.     If Len(HostFileName) = 0 Then
  1167.         End
  1168.     End If
  1169.     PutHostFileName
  1170.     End If
  1171.  
  1172.     mainform.Show
  1173. End Sub
  1174.  
  1175. Sub PutHostFileName ()
  1176.   Dim LclString As String
  1177.   LclString = PutIniData("Host Name", "File Name", HostFileName)
  1178. End Sub
  1179.  
  1180.